
*set working directory
use "anes_mergedfile_1992to1997_coded.dta", clear

***** DIRECT REPRODUCTION OF ENDERS AND LUPTON *****

* Key Results in Figure 1

* Model 1 - Ideological Groups
sem (valuepol96 <- valuepol92 diffideotherm92 sorting92 issextreme92 ///
	interest92 edu92 age92 income92 church92 female92 white92 black92 south92) ///
	(diffideotherm96 <- valuepol92 diffideotherm92 sorting92 issextreme92 ///
	interest92 edu92 age92 income92 church92 female92 white92 black92 south92), ///
	standardized method(mlmv)

* Model 2 - Parties
sem (valuepol96 <- valuepol92 partydifftherm92 sorting92 issextreme92 ///
	interest92 edu92 age92 income92 church92 female92 white92 black92 south92) ///
	(partydifftherm96 <- valuepol92 partydifftherm92 sorting92 issextreme92 ///
	interest92 edu92 age92 income92 church92 female92 white92 black92 south92), ///
	standardized method(mlmv) 

* Model 3 - Candidates
sem (valuepol96 <- valuepol92 diffcandtherm92 sorting92 issextreme92 ///
	interest92 edu92 age92 income92 church92 female92 white92 black92 south92) ///
	(diffcandtherm96 <- valuepol92 diffcandtherm92 sorting92 issextreme92 ///
	interest92 edu92 age92 income92 church92 female92 white92 black92 south92), ///
	standardized method(mlmv) 

**** WEIGHTED RESULTS (Appendix 5) ****
svyset[pweight=V960004]
* Model 1 - Ideological Groups (Table 5A)
svy: sem (valuepol96 <- valuepol92 diffideotherm92 sorting92 issextreme92 ///
	interest92 edu92 age92 income92 church92 female92 white92 black92 south92) ///
	(diffideotherm96 <- valuepol92 diffideotherm92 sorting92 issextreme92 ///
	interest92 edu92 age92 income92 church92 female92 white92 black92 south92), ///
	standardized method(mlmv)

* Model 2 - Parties (Table 5B)
svy: sem (valuepol96 <- valuepol92 partydifftherm92 sorting92 issextreme92 ///
	interest92 edu92 age92 income92 church92 female92 white92 black92 south92) ///
	(partydifftherm96 <- valuepol92 partydifftherm92 sorting92 issextreme92 ///
	interest92 edu92 age92 income92 church92 female92 white92 black92 south92), ///
	standardized method(mlmv) 

* Model 3 - Candidates (Table 5C)
svy: sem (valuepol96 <- valuepol92 diffcandtherm92 sorting92 issextreme92 ///
	interest92 edu92 age92 income92 church92 female92 white92 black92 south92) ///
	(diffcandtherm96 <- valuepol92 diffcandtherm92 sorting92 issextreme92 ///
	interest92 edu92 age92 income92 church92 female92 white92 black92 south92), ///
	standardized method(mlmv) 

**** CORRECT RELIGIOSITY CODING ERROR (FOOTNOTE 3) ****

* Model 1 - Ideological Groups
sem (valuepol96 <- valuepol92 diffideotherm92 sorting92 issextreme92 ///
	interest92 edu92 age92 income92 church92_corrected female92 white92 black92 south92) ///
	(diffideotherm96 <- valuepol92 diffideotherm92 sorting92 issextreme92 ///
	interest92 edu92 age92 income92 church92_corrected female92 white92 black92 south92), ///
	standardized method(mlmv)

* Model 2 - Parties
sem (valuepol96 <- valuepol92 partydifftherm92 sorting92 issextreme92 ///
	interest92 edu92 age92 income92 church92_corrected female92 white92 black92 south92) ///
	(partydifftherm96 <- valuepol92 partydifftherm92 sorting92 issextreme92 ///
	interest92 edu92 age92 income92 church92_corrected female92 white92 black92 south92), ///
	standardized method(mlmv) 

* Model 3 - Candidates
sem (valuepol96 <- valuepol92 diffcandtherm92 sorting92 issextreme92 ///
	interest92 edu92 age92 income92 church92_corrected female92 white92 black92 south92) ///
	(diffcandtherm96 <- valuepol92 diffcandtherm92 sorting92 issextreme92 ///
	interest92 edu92 age92 income92 church92_corrected female92 white92 black92 south92), ///
	standardized method(mlmv) 

**** SIX-ITEM VALUE EXTREMITY MEASURE (Appendix 6) ****

* Model 1 - Ideological Groups (Table 6A)
sem (valuepol96_6item <- valuepol92_6item diffideotherm92 sorting92 issextreme92 ///
	interest92 edu92 age92 income92 church92 female92 white92 black92 south92) ///
	(diffideotherm96 <- valuepol92_6item diffideotherm92 sorting92 issextreme92 ///
	interest92 edu92 age92 income92 church92 female92 white92 black92 south92), ///
	standardized method(mlmv)
	
* Model 2 - Parties (Table 6B)
sem (valuepol96_6item <- valuepol92_6item partydifftherm92 sorting92 issextreme92 ///
	interest92 edu92 age92 income92 church92 female92 white92 black92 south92) ///
	(partydifftherm96 <- valuepol92_6item partydifftherm92 sorting92 issextreme92 ///
	interest92 edu92 age92 income92 church92 female92 white92 black92 south92), ///
	standardized method(mlmv) 

* Model 3 - Candidates (Table 6C)
sem (valuepol96_6item <- valuepol92_6item diffcandtherm92 sorting92 issextreme92 ///
	interest92 edu92 age92 income92 church92 female92 white92 black92 south92) ///
	(diffcandtherm96 <- valuepol92_6item diffcandtherm92 sorting92 issextreme92 ///
	interest92 edu92 age92 income92 church92 female92 white92 black92 south92), ///
	standardized method(mlmv) 

***** WITHOUT ISSUE EXTREMITY AND SORTING CONTROLS (Appendix 8) *****

* Model 1 - Ideological Groups (Table 8A)
sem (valuepol96 <- valuepol92 diffideotherm92  ///
	interest92 edu92 age92 income92 church92 female92 white92 black92 south92) ///
	(diffideotherm96 <- valuepol92 diffideotherm92  ///
	interest92 edu92 age92 income92 church92 female92 white92 black92 south92), ///
	standardized method(mlmv)
estat gof, stats(all)	

* Model 2 - Parties (Table 8B)
sem (valuepol96 <- valuepol92 partydifftherm92  ///
	interest92 edu92 age92 income92 church92 female92 white92 black92 south92) ///
	(partydifftherm96 <- valuepol92 partydifftherm92  ///
	interest92 edu92 age92 income92 church92 female92 white92 black92 south92), ///
	standardized method(mlmv) 
estat gof, stats(all)	

* Model 3 - Candidates (Table 8C)
sem (valuepol96 <- valuepol92 diffcandtherm92  ///
	interest92 edu92 age92 income92 church92 female92 white92 black92 south92) ///
	(diffcandtherm96 <- valuepol92 diffcandtherm92  ///
	interest92 edu92 age92 income92 church92 female92 white92 black92 south92), ///
	standardized method(mlmv) 
estat gof, stats(all)













